Make supersession warnings work again

* src/filelock.c (lock_file): Fix thinko in lock_file in 2ad34bcea4e
(bug#49701).

diff --git a/src/filelock.c b/src/filelock.c
index 106633f5846306cf36299f1753acbe70bbb54f45..cc185d96cdf68cca066544cb8636d51eda35b343 100644 (file)
--- a/src/filelock.c
+++ b/src/filelock.c
@@ -673,7 +673,7 @@ lock_file (Lisp_Object fn)
   Lisp_Object subject_buf = get_truename_buffer (fn);
   if (!NILP (subject_buf)
       && NILP (Fverify_visited_file_modtime (subject_buf))
-      && !NILP (Ffile_exists_p (lock_filename))
+      && !NILP (Ffile_exists_p (fn))
       && current_lock_owner (NULL, lfname) != -2)
     call1 (intern ("userlock--ask-user-about-supersession-threat"), fn);